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EDITORIAL 
Beeblet passes a real milestone this month. 


This month Beeblet contains the first article published in 
New Zealand specifically for the Archimedes computer user 
- and it contains the first Archimedes program to be 
published in New Zealand. We welcome the Archimedes to 
the fold of Acorn computers. 


Almost as exciting is that ice has been broken in that we 
publish the first article from north of the Bombay Hills 
since I took over editing Beeblet some eighteen months 
ago. In fact we have two contributions this month. I 
hope that it is a sign that a thaw has set in and that 
others will follow suit. 


May I thank this month’s contributors on your behalf: 


John Andrew Wellington (2) 

Paul Collins Cambridge 

Anne Flower Wellington 

David Fung Wellington 

Frank Hazlewood Auckland 

Don McDonald Wellington 

Mike Shores Auckland 

Local User Group Wellington 
Unfortunately the item promised about Melenie has yet to 
arrive - I hope it will be available for the June issue. 


Also coming up in that issue is another in Anne Flower’s 
series on *FX Calls and Don McDonald asks: “Anyone for 
Tennis?” 


In the meantime, happy computing. 
Graham Ellett 
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DISCLAIMER 


The views of reviewers, contributors and/or Editorial 
committee are not necessarily shared by 


THE BBC/ACORN COMPUTER USER GROUP NZ INC. 
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GURGLING DRAINS 





by Anne Flower, Wellington 


GURGLES: 


Last time I left you with a few questions about beeps. So 
far the main uses I can invent for a redefined beep 
command would be to: 


1. Cater for people with hearing difficulties 

2. Cut down on typing within a program - instead of 
SOUND3,-15,124,10 for instance, type V.7 on every 
eccasion, having initialised it at the beginning with 
the *FX calls. 


I would like to hear of any others. 


With April Fool belatedly in mind, and assuming you have a 
BBC Model B, have you come across x*xFX254,0 - press Break 
after typing that in. Your computer is now like me - only 
half there! 


On the Master, this command allows the SHIFT Key to affect 
the Keys on the numeric Keypad: 


*FX254,0 and when you press Shift 1 you get ! from 
the Keypad. 
*FX254,1 sets things back to ’normal’. 


You will probably be aware that a SOUND statement has four 
parameters Cit’s In The Boak): 


Channel, amplitude or envelope, pitch, duration. 


We have played around with redefining pitch and duration 
of the beep, so now let’s try to affect channel and 
amplitude with *FX calls. 


KFX21i,n will define the channel. Default setting is 


3, but perhaps you wanted to use the noise 
channel: 
xFX211,0 will do that. 
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To force the beep to use a specific amplitude or envelope 
is a little more involved with *FX212. Because SOUND 
allows use of H and S, Acorn decided to allow that within 
*xFX212 as well. We’re going to ignore that aspect of it. 


Amplitude is a negative number’ in SOUND. For the X 
register of the *FX212, the value is calculated as: 


256+€Camplitude - 1)*8) 
If you want it LOUD, the equivalent of -1i5, that is 
256+(€¢€-15 - 1)3%*8 = 128 


*FX212,128 is as loud as you can beep. The default 
amplitude is the equivalent of -13. 


To use a predefined envelope, the value for the X register 
is calculated as: 


Cenvelope# - 1)x8 
So Envelope 2 would be x*FX212,8 
and Envelope 5 would be x*FX212,48 


On the Master, xCONFIGURE LOUD and xCONFIGURE QUIET are 
alternate ways of getting *FX212,216 and *FX212,240. 


That is enough of me sounding off, so on to other things. 


DRAINS 


Ever had your printer misbehave? Or the computer hang up 
for some odd reason (SHIFT light on... nothing 
happening...)}. Some programs seem to set a printer off. 


On other occasions I’ve had printouts hang up for no 
apparent reason, and needed some way of releasing the 
blockage while I try to find out why it’s hanging. (Maybe 
something wasn’t plugged in somewhere!!). 


While you’re trying to figure it out, or get to the rest 
of the program, is there somewhere to send that stream of 
printout so that it won’t hang up again? 
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*xFX5 has an answer - and *FX5,0 specifically . It sets up 
a “printer sink” to let all that data drain away safely. 
If you Know in advance that you need this, well and good. 
However, it would be nice if you were writing a program 
for others, to detect the problem within it Cin case the 
users haven’t read this article), and to accommodate it. 


There is OSBYTE 128 which will check any buffer you 


specify. Cie an *xFX that can’t be used as x*FX...) The 
idea is that you send a couple of characters to the 
printer, and check to see if they got there or not. If 


they didn’t, they will still be in the printer buffer, and 
the program can take action either by way of a prompt 
“Please turn your printer on“ or by setting up a sink for 
data to go to. 


I’ve said that OSBYTEs can be used from Basic via a PROC 
or Function or OSCLI, but this one is actually the 
equivalent of ADVAL which will be simpler to implement. 


Thinking ahead, if the printer is in fact enabled, these 
characters we are going to put into the buffer to test it 
are going to appear on the paper - I imagine the user 
won’t like that, so we shall send a couple of spaces 
interspersed with a couple of delete characters to ensure 
the paper isn’t marred: 


100 DEF 110 PROCtest_printer_availability 

120 xFX21,3 

130 VDUZ 51,3251, 1275 1432515127; 3 

140 IF ADVAL(-4) = 63 THEN PROCprint ELSE PRINT"Please 
enable printer” 

150 ENDPROC 


You may prefer to make line 140 read ... ELSE ¥%*FX5,0, or 
call another PROC to decide which of these two 
possibilities will be enacted. Line 120 flushes the 
printer buffer first. There will be more about buffers in 
a subsequent article. 


Used to having a printer plugged in the proper place, but 
borrowed one that runs off the serial port? 


xFX5,2 is what you need before starting to print. 


*xFX5,1 will get you back to ’normal’ when you have 
your own printer back. 
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It’s also useful if you’re rich with a daisywheel hanging 
off the RS423 port for the professional look, and run a 
dot matrix off the Centronics port for quick drafts. 


As you may have suspected from the terminology above, 
*kFX5,2 is the command to send data down the RS423 port - 
whether it be to a printer, or another computer; but not 
to a figment of your imagination - use xFX5,0 for that. 


There is more to x*FX5, but not today. 


With winter coming, dormant printer drivers like x*FX123. 
Are you into writing printer drivers? How about writing 
this chapter then? And the rest of xFX5. 


While we are on printers, if your DIP switches aren’t 
properly set, and line feeds are too many - or perhaps you 
prefer double-spaced lines (Cand perhaps double width 
characters for visibility as well) - and for once you 
don’t want double-spaced printouts. 


*KFX6,10 is at your command. 


KFX6,n tells the computer it mustn’t ever let the 
character specified in register X pass its printer socket 
Cor wherever it actually determines the boundaries). 
CHR$10 is the Line feed’s ASCII - value, so xFX6,10 is 
saying “Ignore all linefeeds. Tell them to get lost.” 


If you have a Master, it actually responds to *IGNORE 
where n is the ASCII value of the character to be ignored. 


Friendly isn’t it? 


Fool around with the listing here during the next month - 
it will help to have a printer plugged in Cor another 
computer...) to see the effects though. 


10 VDU2 


20 PRINT"The eagles are sedentary” 
30 xFX6,101 


40 PRINT“The eagles are worse than sedentary” 
90 VDU3:END 


~ 
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ARCHIMEDES ARCHIMEDES 
WHEN REEK MEETS CHIN EE 
or did Archimedes streak backwards....... 


BY David Fung, Wellington 


Having 1MB of RAM, the Archimedes can apportion up to 
320KB of memory for screens. Instead of a fixed starting 
address for the screen memory, Acorn decreed rather 
perversely. that the starting address should be variable. 


In case the users should have too much time to Kill, Acorn 
very considerately omits the information where one may 
find the screen address so that one may play the game of 
peek and poke happily for hours. (Subscriptions for “sue 
Acorn for loss of income fund” is now open) 


At the default setting ¢xCO.Screensize 0} the screen 
memory starts at &O1FD8000 for the Archimedes 310. 


In the BBC/Electron/Master the screen memory is arranged 
from the top to the bottom of an 8 byte column to the top 
of the next 8 byte column etc in an 80 column row 
saw-tooth fashion. In the Archimedes the screen memory 
proceeds horizontally from left to right in rows of 80 
bytes Cin mode 0) much the same way as one writes. 


Working on this principle I wrote a Screendump programme 
(Listing 1) in BASIC for the H-P Thinkjet printer. It 
dumps a mode O screen in 28.5 seconds. Very impressive, 
if you like scrambled egg. 


On closer inspection it reveals that characters are 
flipped over 180 degrees so that d becomes b, q becomes p 
in a dyslexic manner. The artwork is, of course, 
scrambled. One can applaud Acorn for being consistent in 
doing things back to front, each screen byte has been 
written as its mirror image: eg., 11010000 becomes 
OOOOLOIL, and 11101001 becomes 10010111. 


Undaunted I added a Procedure to invert (like a sock heing 
turned inside out, not a change of sexual preference) any 
byte if its value is not 00000000. Listing 2 now dumps 
faithfully in 65 seconds. 
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Would some one please find a simpler method or convert 
mine to ARM assembler codes? 


Would Acorn please explain all these mysterious phenomena? 
It is not Greek, more likely Italian to confound this 


Chinese I am sure. 


Listing IL: 


10 REM REVERSEDUMP FOR ARCHIMEDES 310 

20 REM A basic programme to dump mode O or 18 

30 REM screen for Hewlett Packett THINKJET Printer 

40 REM BY David Fung, Wellington. March 1988 

50 MODE O:FORC%=1 TO 2400: PRINTCHRS(RND(223)+33); :NEXT 


51 REM Print a screenful of characters 
60 M%=&1FDS8000 

90 TIME=0 

100 VDU2 

110 VDU1,27,1,42,1,114,1,54,1,52,1,48,1,83; 

Lil REM set to 640 dots across 

120 VDUi,27,1,42,1,114,1,65; 

121 REM starts raster graphic 

140 FORI%=1 TO 240 

141 REM to print 240 rows of 80 bytes 
{50 V001,27,1,42,1,98,1,56,1,48,1,87; 

154 REM send 80 bytes to printer 

{60 FORB%=0 TO 79 

170 VDUL,?M%; 

180 M%t+=1 

1390 NEXT 

200 NEXT 

220 VDU1,27,1,42,1,114,1,66 

221 REM finishs raster graphic 

240 VDU3 


250 PRINTTIME/100:END 


Listing 2: 


10 REM STRAIGHT DUMP FOR ARCHIMEDES 310 

20 REM a basic programme to dump mode O or 18 screen 
30 REM for Hewlett Packett Thinkjet printer . 

40 REM BY David Fung, Wellington. March 1988 

5O MODE O:FORC%=0 TO 2400:PRINTCHRS(RND(223)+33);:NEXT 
60 DIM J% 8 


-... Archimedes Straight Dump Contd >>) 
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sera . Archimedes Straight Dump Contd >>> 


70 FORK%=0 TO 7:J%?K%=2°K%: NEXT 


71 REM put bit values in array of eight cells 
80 M%=&1FD8000 

90 TIME=0 

100 VDU2 

110 VDU1,27,1,42,1,114,1,54,1,52,1,48,1,83;3 

1 Oe REM set to 640 dots across 

120 VDUi,27,1,42,1,114,1,65; 

121 REM start raster graphic 

130 FORA%=1 TO 240 : 

131 REM to print 240 rows of 80 bytes 

140 VDU1,27,1,42,1,98,1,56,1,48,1,87; 

141 REM send 80 bytes to printer 

150 FORB%=0 TO 79 

160 IF 2?M%=0 I%=0 ELSE %=?M%: PROC_I 

161 REM if byte value is not O invert it 
170 VDUI, 1%; 

180 M%+=1 

1390 NEXT 

200 NEXT 

210 VDU1,27,1,42,1,114,1,66 

220 VDU3 

230 PRINTTIME/100 

240 END 

250 : 

260 DEF PROC_I 

261 REM invert the byte to its mirror image 
270 I[%=0 

280 N%=0 

290 FORK%=7 TO O STEP -1 

291 REM Starts from bit 7 


300 IF C%>=J%?K% [%+=JS%2N% 2 C%-=S%S?PK% 

301 REM if the byte value C% is larger or equal to the 
302 REM (K%)th bit value THEN add the value of the 

303 REM mirror image bit (J%?N%) to the value of the 
304 REM inverted byte I%. THEN reduce the value of C% 
305 REM by the value of the (K%)th bit. 

310 N%+=1 

320 NEXT 

330 ENDPROC 


i i Ree ia Rade eee eee hie hee take Ae he ha dake to doo te ta 
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CRYSTAL SEL, TltON £F. RAM 


By Mike Shores, Auckland 


I have been Keenly interest in Electronics for a very long 
time, and I suppose, like many people tinkering with 
soldering irons, I’ve collected one or two quartz crystals 
along the way. They spring to mind every time I have a 
need for a frequency standard of some sort. 


You don’t get very far in Electronics without the ability 
to make measurements -of various sorts and my recent 
Project to make a modem, on the cheap, from basic 
principles and even more basic i.c’s, was no exception: I 
needed standards of some sort to ascertain that my audio 
tones for frequency shift Keying were correct. 


The timebase in my trusty old valve oscilloscope isn’t 
accurate enough and the modem frequencies concerned, by 
design, bear no easy mathematical relationship to 50Hz 
mains! Neither are they any Kind of product of amy 
Standard 1MHz crystal oscillator (Csuccessively divided 
down in decades, eventually to tisec). 


So I started to look again at my pile of crystals; could 
one of them produce a useful frequency by simply dividing 
down their output? 


In the past I’ve driven myself crazy with a pocket 
calculator trying to evaluate all the possible 
permutations. This always resulted in going out to 
purchase one or more crystals at great expense in order to 
get the desired frequency by decade or binary division 
alone. It takes a mathematical genius to work out the 
various possible combinations for division of frequency, 
especially if one tries to incorporate that very practical 
aspect of allowable tolerance. 


So I wrote a program to do it for me. 


Astute readers may possibly notice one or two procedures 
borrowed from other programs, for which I make no apology; 
I don’t believe those Kind of short cuts are particularly 
Sinful! Incidentally, neither do I think GOTO’s, etc., 
sinful either. Every program instruction has its place. 
If you’re comfortable with it then by all means use it. 


The designers of Basic included instructions to be used. 
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The following XTAL program works it all out by evaluating 
possible combinations of divisions by 2,3 and 10 as they 
are relatively easy to arrange and effectively give many 
other combinations such as 4,6,8,9,12,18 etc. 


No doubt other division factors could be incorporated with 
advantage. This may be the basis of further 
experimentation on the part of other programmers. Perhaps 
one possibility is to change the division by ten to 
division by five. 


The program should be carefully typed in its entirety and 
saved at least twice under different names, different 
directories, and/or different drive numbers. The “active” 
Program should not be locked as it will re-record itself 
when first properly run; of course the “safety” back up 
copies could be locked with advantage. 


When you are quite happy all is well, delete line {80 and 
RUN the program. It should give you a prompt to press 
function Key 0, thus modifying and saving the program so 
that it can be run again. Thereafter, it will always read 
the data file CRYSTAL where it has stored your various 
crystal frequencies for future reference. 


No really elaborate safeguards are built in as it is 
assumed that the program will be driven with due care and 
attention. Such measures could be taken if really 
necessary but it was considered an unnecessary 
complication for an otherwise straightforward project. 


The names of the procedures are self explanatory. 


The program will always list your crystals in order of 
frequency because of the automatic sort routine initiated 
when you add to the list. It is assumed that crystal 
frequencies will be stated in MHz and the required output 
frequency in Hz. Again, other units could be used by 
altering the input and calculation routines (PROCinput and 
PROCcalculation) to suit. 


In effect the calculation procedure draws up a complete 
table of all the permutations of multiple divisions by 3 
and 2. It takes each result and looks firstly for a 
Simple match in just the first two significant figures of 
the target frequency. 


If a match is found it goes into PROClikely and compares 
Successive decade divisions of the figure which caused the 
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execution of PROClikely with the target frequency, within 
the tolerance Limits established at the start. Where a 
match exists the resulting calculation/divisions required, 
plus the resulting frequency are either displayed on the 
screen, or printed out if you wish. 


You are told exactly which crystal to use and how to 
Givide the frequency to get the required result, thus 
saving a lot of anguish and probably some money. 


yn ON Ww 


In closing I would strongly urge other readers to 
contribute programs or articles to the magazine. This 
article results from a personalised request on the part of 


the Editor when he Kindly replied to a query of mine. My 
thanks to him for an excellent publication. This article 
comes from North of Hamilton in “Black Hole” territory. I 


hope same more AucKland User Group members take the hint. 


Ed: Mike’s program illustrates another practical way of 
putting the Beeb to work. Thanks for sharing it with 
Beeblet readers. 


You are invited to share developments you have made. Do 
not assume that no-one will be interested. Or maybe you 
have a specific problem which you are wondering whether a 
Program has been written to solve; you are welcome to use 
Beeblet’s pages to make enquiries. 


SO eH RR Re ee ee et ee ee he eh he 


LO REM KEK KKK KK RK KKK KR RIOR IR IOI K 


20 REM x 7 KTAL?’ x 
30 REM KK RIO IO RK 
40 REM x * 
50 REM x By SHORESOFT * 
60 REM x (c)} M.W.Shores * 
70 REM x 1987 * 
80 REM x * 
90 REM KR KKK KIO ORI RK 


100 ON ERROR GOTO 2270 

110 xKEYSxTVO,1:MMO.3!M!S720000LD!M!INL.!M 

120 REM fKey 5 is used to list the program during typing 
in phase. 

130 VDU 22,7,23;8202;0;0;0;:REM Mode 7 & Suppress cursor. 


....-XTAL Contd. >>> 
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140 
150 
160 
170 
180 


190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
AO) 
530 
540 


XTAL Contd. >>> 


@%=&0090D :REM Columns 13 chrs. wide. 
A%=134 
DIM XTAL¢€30):REM You can ’DIM’ more if you wish! 


PRINT ’’’"Type in full program before deleting”’“this 
line. Then SAVE THE PROGRAM in a"’"different 
directory, or under a”’"“different name, BEFORE 
running."’"“Just in case ! !": 

PRINT ’’’CHRS136"KEY O can be LETHAL”:STOP 


N%=2 

FOR K%=1 TO N%& 

READ XTALCK%) 

NEXT 

PROCfinish 

xKEYO DEL.180,300:MSAVE"XTAL” ;MRUNiM 
PRINT TABC8)"“PRESS KEY O TO PROCEED” 
END 

DATA 1,2 


PROCinit 

PROCselect_action 

MODE7 :REM To turn cursor back on 
PROCfinish 

END 


DEFPROCinit 

VDUI4 :REM Turns on page mode 

PROCheader( “CRYSTAL SELECTION PROGRAM") 
PROCwindow(0,3,39,21) 

*xFX6,131 

REM Stops yellow colour code going to printer 
PROCload_file 

PROCsort:PROClist 

ENDPROC 


DEFPROCselect_action 

F%=131:P%=9 

REPEAT 

VDUI2,15 :REM =CLS & turn page mode off 
PRINT’ CHR$CA%)"O = Finish” 

PRINT CHRSCA%)TABC20)"1 = List crystals” 
PRINT CHRS(A%)"“2 = Add crystal” 

PRINT CHRSCA%)ITABC20)3"3 = Delete crystal” 


Meise hiats: Conta. >>5 
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920 


980 


14 


XTAL Contd. >>> 


PRINT CHRS(CA%)?"4 = Enter req. freq.” 
REPEAT 
PRINTTABC26,P%)" ~ 
PRINTTAB(C6,P%)CHRSCF%) 
INPUTTAB(7,P%) "Enter your choice “;REPLY$ 
REPLYS=LEFTS$ CREPLYS, 1) 

UNTIL REPLY$>="0" AND REPLY$<¢=" 4" 
CLS:IF REPLY$="1" PROClist 

IF REPLY$="2" PROCadd_ crystal 

IF REPLY$="3" PROCdelete_crystal 
IF REPLY$="4" PROCenter_freg 
UNTIL REPLY$="0" 

ENDPROC 

DEFPROCload_file 

Fit=OPENINC "CRYSTAL" ) 

INPUT #F1,N% 

FOR K%=1 TO N% 

INPUT #F1,XTALCK%) 

NEXT 

CLOSE #F1l 

PRINT TABC10)"CRYSTAL FILE READ’? 
ENDPROC 


DEFPROCsort 

LOCAL i,posnsmallest 

FOR i=1 TO N%&-1 
PROCfindsmallestentryfrom(¢i) 
PROCswap(i,posnsmallest) 
NEXT 

ENDPROC 


DEFPROCfindsmallestentryfrom(i) 

LOCAL next 

posnsmallest=i 

FOR next=it+1l TO N% 

IF XTALCnext>d<XTALCposnsmallest) THEN 
posnsmallest=next 

NEXT next 

ENDPROC 


DEFPROCswap(k,1> 


LOCAL temp 


temp=XTALCK) :XTALCK)= XTALCL): XTALC1)=temp 
ENDPROC 


-....XTAL Contd. >>> 
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990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 


XTAL Contd. >>> 


. 


DEFPROCfinish 
PROCheaGer("“All done“) 
FL=OPENOUT( “CRYSTAL” ) 
PRINT #F1,N% 

FOR K%=1 TO N% 

PRINT #F1,XTALCK%) 
NEXT 

CLOSE #F1 
PRINTTAB(7, 12) CHRS(A%) "New CRYSTAL file saved" 
@%=10 

xKKEY © 

REM clears fKey0O 

xKEY 5 

REM clears fKey5 
ENDPROC 

DEFPROClist 

PRINT’ 

FOR K%=1 TO N% 

PRINT K%,XTALCK%) 
NEXT 

PROCwait 

ENDPROC 


DEFPROCadd_crystal 

PRINT’?’’"Frequency of crystal” 

INPUT"to be added to list “3X 

N%=N%41 0 

XTALCN% > =X 

PRINT’ TABCSSCHRS132"The list now reads:- ” 
PROCsort:PROCLlist 

ENDPROC 


DEFPROCdelete_crystal 
PROCList 

INPUT’’’ "Number of crystal to be deleted “;C% 
IF C%=N% GOTO1410 
REPEAT 
XTALCC%)=XTALCC%+1) 
C%=C%+i 

UNTIL C%=N% 

N%=C%-1 

CLS: PROCLlist 

ENDPROC 


eee w XTAL Contd. >>>? 
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....eXTAL Contd. >>> 


1450 
1460 
1470 
1480 


1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 


iG 


DEFPROCenter_freg 

C$ =CHRSCF%) 

LOCAL X:answer=FALSE 

PRINT’’C$;"Do you require a printout ?”: 
IF FNy_n VDU2 ELSE VDU14 
PRINT’’’C$;"“What frequency are you" 
PRINT CS;“interested in (Hz)* 
REPEAT 

PRINT’ ’CS;: INPUT SPCC20);W 

UNTIL W>0 

PRINT’CS$;"“What tolerance” 

PRINT C&;"“is acceptable” 

PRINT C$;"C€ + or - percent )" 
PRINT’ ’C$;: INPUT SPC(20);tolerance 
lowest=Wx((100-tolerance)/100): 
highest=Wx(C1L00+tolerance)/100) 
KFX3,4 

CLS 

PRINT TABC6)CHRS$130"Processing..... Please wait" 
*FX3,0 

PROCcalculation:PROCwait 

ENDPROC 


DEFPROCcalculation 
WS=LEFTS (CSTRS (CW), 2) 

FOR K%=1 TO N% 

div_three%=- 1 
f_loopO=XTAL(CK%)*«10%6 

REPEAT 
div_three%=div_three%+1 
f_loopi=f_loopO/3%div_three% 


PROCtwos 

UNTIL f_loopi<W 

NEXT K% 

VDU 3,15 :REM Turn off printer, turn off page mode. 


IF answer=FALSE PRINT’ TAB(12)“NONE SUITABLE” 
ENDPROC 


DEFPROCtwos 

div_two%=-1 

REPEAT 

div two%=div_two%tl 
f_loop2=f_loop1l/2“div_two% 

IF LEFTS(STRS(f_loop2),2)=WS THEN PROCLikely: 
REM two most significant digits do match 


-...eXTAL Contd. >>> 
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oe.» -XTAL Contd. >>> 


1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 


2130 
2140 
2150 
2160 
2170 
2180 


2190 ° 


2200 


2210 
2220 


2230 
2240 
2250 
2260 
2270 


UNTIL f_loop2<W 
ENDPROC 


DEFPROCI]ikely 

div_ten%=-1 

LOCAL f_test 

REPEAT 

div_ten%=div_ten%+1 

f_test=f_loop2/10*div_ten% 

IF f_test<highest AND f_test>lowest PROCrecord 
UNTIL f_test<lowest 

ENDPROC 


DEFPROCwait 

PRINT’ ’ TABC7)CHRS$129;CHR$136"P RES S S PAC E” 
REPEAT UNTIL GET=32 

ENDPROC 


DEFPROCrecord 

answer=TRUE 

PRINT’’?’ "Crystal No.”";K%3", ";XTALCK%);" MHz.” 
LS$=STRS$ CXTALCK%) *10%3)+" KHz” 

IF div _ten%>0O M$="/10*"+4+STR$Cdiv_ten%) :LS=LS+M$ 

IF div_two%>0 M$="/2*°"+STRS$(div_two%) :LS=LS+M$ 

IF div_three%>O MS="/3*°+STRS(div_three%):LS=L$+M$ 
L$=L$+"="+4STRS CC CCXTALCK%S) &10°%6)/10*%div_ten%)/ 
2*div_two%)/3*div_three%)+”" Hz" 


PRINT L$ 

ENDPROC 

DEFPROCwindow(X%,Y%,W%,H%): REM start,width,height 
VDU2Z8,X%, Y%+H%-1,X%4+W%-1, 1% 

ENDPROC 

DEFPROCheader(A$):VDU12:FORI%=0 TO 1: 


PRINTCHRS$&81; CHR$&9D; CHR$&83;CHRS&BD;: 
PROCcentercAs,VPOS) : NEXT: ENDPROC 


DEFPROCcenter (A$, vpos)PRINTTAB( ( 20-LENASDIV2),vpos); 
A$: ENDPROC 


DEFFNy_n:LOCALI%: REPEAT: 1%=INSTRC” YyNn",GETS$) :UNTILI% 
IFI1%<3=TRUE ELSE=FALSE 


CLOSE#F1:@%=10:IF ERR=17 RUN ELSE REPORT: 
PRINT" at line °;ERL:END 


tel eee edad dated dete tede a dedede dado de ode ee 
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LETTER H. 


bv i + 
Dear Editor, 
I Know feedback - or lack of it - is the bane of Beeblet’s 
contributors. For instance, where are the Electron 


Column, the Beginners’ Column; will we hear from Tony 
Wattam or Sadie Ash ever again? And... the HELP Column? 


I need that right now: 


It seems as though the WORDWISE + language should be 
accommodating enough for one to include screen dumps 
within one’s text. Not in the text file necessarily, but 
on the printout. I can’t do it. Could someone please 
rise to the challenge and provide the program(s) to do it? 


This is what I think needs to happen: 

1. Set up on disc the screen dump - presumably by having 
the picture on screen, and xSPOOL pic _dmp to open a 
disc file just before calling the printer dump routine 


then *xSPOOL to close the disc file at the end. 


2. In a segment set up all the variables for the start of 


the text - line spacing (as a printer code!>, PL, LL, 
TS, BS, DH, ODF, RPS’s, EP etc., pica or elite and 
other OCs. 


3. At the appropriate point(s) in the text do a CP. Say 
a screen dump takes up the equivalent of 24 text 
lines. In fact the printer may do, say, 32 lines to 
produce the picture, but they will be spaced much 
closer together. 


4. Either increase PL by the difference between 24 and 32 
lines for this page, or at least store the number of 
lines already used on the page - I don’t want a dump 
being split across two pages because WORDWISE thinks 
32 lines take nore than they really do. 


5. Get File of the picture dump and action it. 
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6. Reset PL or lines used to what they would have been if 
only text had been. printed. 


7. Reset all sorts of other things - my printer doesn’t 
use Epson-alike codes, so there isn’t the equivalent 
of ESC @ to reset the printer at the end of a duap - 
so line spacing in ESC codes, pica or elite (as 
specified in the start-up segment) - or else simply 
re-use the set-up segment with an incremented page 
number so it doesn’t (eg) call page 5 of text page 1 
again. 


While I’m asKing for WORDWISE + help, what is the program 
to put edge-justified page numbers into a DH or DF - that 
is, right-justify odd-numbered pages and left-justify 
even-numbered pages. ‘What if I want them extra large 
using Shift Out (€OC14). The left-justified ones are ok, 
but for the right-justified ones presumably you have to 
halve the LL, print the page number then reset LL to 
normal ?? 


I look forward to someone, somewhere, helping on this.. 


Anne Flower 


i a te tt Ne tate te te in ee he ee he Tee dn eo a ten Ten Aan ti Th an de dhe en de he hn Tha thn ka tho ho dhs tha ha ha a a 


Editor: If you can assist Anne please address your reply 
to me, PO Box 9592, Wellington. The answer is likely to 
interest other WW+ users. 


Although the HELP Column has been discontinued, this was 
mainly through lack of questions. Send in your questions 
- without a formal Help Column, I will publish thea as 
above and request assistance. 


If the quantity of questions justifies the HELP Column 
being reinstated then that will be arranged. Please be 


Patient for a reply - I cannot reduce the publishing 
cycle. 


li dated Ati he tee de Tee hae hn ee ee en a hn eo ho da Adina dain Eee io dea dha da do da A a do hn a ho dn he ee 
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ee CART. *~ 
Extra 32K sideways RAM for the BBC Master 


by Paul Collins, Cambridge. 


Along with many others I have over time acquired several 
ROMs for my trusty Beeb of varying usefulness. After the 
first ROM the familiar problem arose of which one to leave 
in the machine; the acquisition of a Master 128 seemed to 
be the answer. 


However the price of cartridges soon led to the use of ROM 
images loaded from disc. Eventually even the four 
standard slots proved insufficient. The answer came _ in 
the form of Peartree’s MR7200 32K RAM cartridge when a 
local agent started clearing out before relinquishing the 
Acorn agency (shame). 


PacKaged in a standard sized ROM cartridge it has a switch 
on top to switch write protection on/off and another hole 
beside it marked ROM A or B. Presumably, Peartree used 
the same housing for another ROM cartridge. 


Fitting it was just a case of pushing it into place and 
booting the accompanying disc. The menu displayed the 
equivalent of a *xROMS showing two of the original ROM 
slots were now configured as RAM. Other options permitted 
clearing. testing. loading and saving the RAM. 


From this menu it is also possible to *xCAT a disc, issue a 
k command and edit the sideways RAM in Hex or ASCII. 
Fortunately, these commands are provided as a ROM image 
allowing their use without saving your current work and 
booting the disc. To use it requires switching to the ROM 
filing system and, as yet, I have not found an easy way of 
*CATing xLOADing and xSAVEing to a disc using this method. 


The only other software provided is a ’Modern’ character 
font which, while interesting, will probably be consigned 
to the if I ever need it box as I didn’t find it 
particularly pleasing to the eye. 


Playing around with the extra RAM led to the inevitable 


crash requiring reloading various files I was using before 
I went poking! where I shouldn’t ought to. This time 
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consuming chore resulted in the following files on a disc 
with images of all my favourite ROMs reducing the 
keystrokes to a minimum. 


xBUILD !BOOT <ret> 


L*xBASIC 

2xSRLOAD <filename> 8000 n Q@ (where n is the slot 
number) 

3CHAIN” MESSAGE" 


4 <escape> 


xOPT 4,3 (to set shiftt+break to xEXEC !BOOT) 


10 MODE 7 

20 PRINT CHRS$C137)CHRS$(131)"°PRESS CRTL + BREAK“ 
30 PRINT’’ To initialise sideways ROMS ° 

40 END 


SAVE“ MESSAGE“ 


Although simplifying the reboot process, a better idea 
would be for the !BOOT file to chain a ROM loader program 
to avoid rebuilding the !BOOT file each time you wanted to 
load another ROM. 


Over the last two weeks the cartridge has proved to be 
ideal for the activities here allowing up to six sideways 
ROMs to be played with, saving wear on the Master’s 
cartridge slots, not to mention eliminating the risk of 
bending- pins over while inserting ROMs into their sockets. 


For occasional ROM users the Peartree RAM Cartridge would 
not appear to be particularly good value at a NZ RRP of 
$129. However for the dabbler in sideways who obtains 
supplies direct from UK it becomes worth considering. 


On the matter of size, it is interesting to note the 
release in UK recently of 256K RAM cartridges configurable 
as disc drives. Now there’s a thought. 256 mode 7 
screens on Silicon disc would give 10 seconds of 
cartoons!!! 


Who’s game to try ? 
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TENDERS TENDERS TENDERS 


ARE INVITE OR 


SURPLUS ITEMS 
ISTED BE rs 


Please send your tender (and Phone No.) to 

D. Fung, P.O. Box 28-023 Wellington 5 

Tender closes 2 weeks after mailing of Beeblet 

The highest tender may not necessarily be accepted. 


NEW ITEMS WITH WARRANTY: 


1 BBC Master 128 Microcomputer 
{ Turbo _ coprocessor 
1 Thomson 12” Green Monitor (VM 3102 VG) 
16 boxes of 10 3M 5.25" DSDD discs 
€ any number of boxes up to 16) 


USED ITEMS: 


1 BBC Model B Microcomputer with DFS 
1 Opus Challenge 3 Disc Drive 
(1 Double sided floppy drive 
+ 1/2 MB Ramdiscs) 
1 ADE-55 14" RGB Monitor 
{ 6502 Second Processor 
{ Solidisk 256K Ramdisc board issue 2 


a ee) 


EVALUATION ITEMS BUT RARELY USED: 
1 Acornsoft Iso Pascal + Reference books 


1 Minerva System Delta + Index Card 
+ Reference Manuals 
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For t H 


The BBC computer book. 
Basic programming, Cryer & Cryer 
Programming tips, Acorn User 
Programming the BBC Micro, Williams 
The BBC Micro Book, McGregor and Watt 
Advanced Programming Techniques, McGregor & Watt 
The Advanced User Guide, Bray, Dickens & Holmes 
Basic Rom User Guide, Plumbley 
Assembly Language Programming, Birnbaum 
Beyond Basic, Freeman 
Advanced Machine Code Techniques, 
Stephenson & Stephenson 
Applied Assembly Language, Edward Ball 


For Master 128 


Re ference Manuals - Parts one & two 


General 


Yours first Computer, Zaks 

Programming the 6502, Zaks 

Starting Forth, Brodie 

Introduction to word processing, Glatzer 
Pascal for Students, Kemp 

Pascal-User Manual and report, Jensen & Wirth 
System Analysis & Design, Leeson 


1982 
1982 
1983 
1983 
1983 
1983 
1983 
1984 
1982 
1983 


1984 
1984 


1986 


1980 
1980 
1981 
1981 
1982 
1974 
1985 


KR KKK IK RK KK KKK RK KKK KKK RR KK KK KKK KKK KKK KK AK RR KR KKK KK KKK KKK 


Please send your tender Cand Phone No.) to 
D. Fung, P.O. Box 28-023 Wellington 5 
Tender closes 2 weeks after mailing of Beeblet ~ 


The highest tender may not necessarily be accepted. 


KK KKK RK KK KKK KKK RAK KKK KKK KKK KKK KKK RK RK KK RK RK KK KK KR KER KKK KKK 
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li TF Pad i 4 
The Statement of Accounts and Balance Sheet as published 
last month were unaudited and were subject to actions 


taken at the AGM. For details, see the Minutes of that 
meeting and the Note below. 


STATEMENT OF ACCOUNTS 1987: 














INCOME 
STOCK 
1986 SALES 31.12.87 TOTAL 
$ $ $ $ 
7308 Supplies 1883 1004 2887 
11048 Equipment 605 295 900 
7 Sundries 23 23 
90 Interest 447 447 
18453 TOTALS 2858 1299 4257 
EXPENDITURE 
STOCK 
1986 1.1.87 PURCHASES COSTS 
$ $ $ $ 
7329 Supplies 2019 616 2635 
10566 Equipment i288 1288 
63 Sundries 58 28 
18174 TOTALS 3307 674 3981 
189 Profit on Sales ~171 
279 Surplus for Year 276 


NOTE: 





Stock to the value of $380 has been written off as a stock 
loss as approved by the Annual General Meeting. This is 
reflected in the overall loss in sales transactions for 
the financial year. The loss was offset by the income 


derived from investments giving a resultant surplus for 
the year of $276. 
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BBC/ACORN COMPUTER USER GROUP NZ (Inc) 


iy IDV ON 


BALANCE SHEET 1987 


0 Member’s Funds 1.1.87 279 
273 Plus Surplus 276 


279 ACCUM. FUNDS 555 55 


Represented by 


1986 LIABILITIES 1987 1986 ASSETS 1987 
$ $ $ $ 
4000 Bal Loan 2000 3183 Cash Bank 3221 
2154 Adv Stock 2154 0 Cash Hand 191i 

3307 Stock 1299 

58 Creditors 43 @) Debtors 4i 

6211 4197 6490 4752 

Less Liabilities.. (6211) 4197 

NET WORKING CAPITAL € 279) 555 





AUDITOR’ TATEMENT: 


I have examined the financial records of the BBC/Acorn 
Computer User Group Equipment Division for the year ended 
31 December 1987. I have obtained sufficient information 
and explanations concerning the account. According to 
those records and explanations, the above Statement of 
Accounts and Balance Sheet show a true and fair view of 
the Equipment Division’s financial operations for the year 
ended 31 December 1987 and its financial position at that 
date. 


Signed: A. Flower (Hon. Auditor) 
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WINDSCREEN WIPERS 
by DS McDonald, Wellington 


BeeBug magazine, Vol 6¢7), Dec 1987, contains a program by 
Joan Barnard to make snow-flakes / snow storm. I have 
written a program to simulate rain drops running down a 
window. It includes gravity, wind, friction, shape, size, 
coalescence, and random effects. 


The program given here, WIPERS, is shorter than my rainy 
window program, which was for another computer. Program 
WIPERS simulates rain or snow falling on a car windscreen 
and being wiped away by the windscreen wiper. All the 
while rain continues falling. 


The data required are:- 


rate of precipitation, 
wiper speed, 

period of wiper, and 
half-angle of wiper arc. 


mW HN — 


A tip ~ when running a program with the same small amount 
of Keyboard data each time, store the data items on a 
function Key with carriage returns etc. If possible do 
not use data values which end in O or line numbers, 
because if the program halts an unused data item such as 
"10" "20" will delete lines 10, 20 and you may not notice 
it missing. BBC User Guide, p. 142. 


I have left the program short so that there is less for 
you to type in and you can make your own changes and 
enhancements without having to figure out miles of 
statements. 


The density of rain spots on the surround of the wiper 
area is uniform. It accumulates for two minutes and then 
the display is cleared. You can see the wiper moving and 
raindrops immediately start falling on the dry area. 


The density of drops on the wiper area is proportional to 
the time since the wiper passed that point. My eye was 
not a very good judge of the density; if the density was 
two to four times greater in the surround, I could not 
easily judge that there was a wiper area in the centre 
that had received much fewer drops. 
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The 


best time to press ESCAPE is two-thirds through a 


wiper sweep. 


10 
20 


120 
130 
140 
150 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


MODE7 

PRINT“PROG WIPERS BY D.MCDONALD, THU 10.3.1988"’ 
“SIMULATES RAINDROPS ON CAR WINDSCREEN AND WINDSCREEN 
WIPERS“’"CAN ADD WIND, GRAVITY, SHAPE, COLOUR, 
COALESCENCE, RIVULET AND RANDOM EFFECTS.“ 

PRINT’ “PRESS ANY KEY TO CONTINUE OR f7 FOR 
EXAMPLE“ 

XKEY7°X19:M9i:M5iM24¢M* 

A$=GETS$ 

INPUT"“ENTER PRECIPITATION RATE 1-20",PRECIP 
INPUT“ENTER WIPER SPEED (10 DEG)", SPEED 
INPUT“ENTER WIPER PERIOD (5 SEC.)",PERIOD 
INPUT“ENTER WIPER ANGLE (25 DEG.)",ANGLE 


X=-1 : REM INITIALLY WIPE FROM LEFT TO RIGHT 
PRINT’’ “WRITE DOWN DATA. VARIABLES PRECIP, SPEED, 
PERIOD, ANGLE."’’ "PRESS ANY KEY TO CLEAR SCREEN AND 
CONTINUE. “ 

A$=GET$ 

MODE5:REM 4 COLOURS, 160x256 PIXELS 


GCOLO, 3:GCOLO,128 

PRINT" PRECIP"; PRECIP"SPEED” SPEED” PERIOD" PERIOD 
“ANGLE” ANGLE 

MINUTES=2 

CYCLE=TIME+MINUTESx6000 

REPEAT 

SWEEP=TIME+ 100xPERIOD 

REPEAT 

PROCDROPS(PRECIP) 

UNTILTIME> SWEEP 

X=-X : REM REVERSE WIPER DIRECTION 

PROCERASE( 900, 150,-600,-Xx*ANGLE, XXANGLE, X*SPEED) 
UNTILTIME>CYCLE 

GOTO130 

END 


DEFPROCDROPS(N) 

FOR DROP=1TON 
PLOT64+1+4,RND(C1279),RNDC1023) 
NEXTDROP 

ENDPROC 


DEFPROCERASE(Top,Bottom,Centre,A1,A2,SPD) 
FORA=A1+SPD TOA2 STEPSPD 


rrr WIPERS Contd >>> 
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....- WIPERS Contd >>> 


370 MOVEFNX(Top,A-SPD),FNY(CTop,A-SPD) 

380 MOVEFNX(Bottom,A-SPD),FNYCBottom,A-SPD) 
390 PLOT80+4+3,FNX(Top,A),FNY(Top,A) 

400 PLOT80+4+3,FNX(Bottom,A),FNY(CBottom,A) 
410 PROCDROPSC(PRECIP) 

420 NEXTA 

430 MOVEFNX(Top,A2-SPD),FNY(Top,A2~SPD) 

440 MOVEFNX(Bottom,A2-SPD),FNY(CBottom,A2-SPD) 
450 PLOT80+4+3,FNX(Top,A2),FNYCTop,A2) 

460 PLOT80+4+3,FNX(Bottom,A2),FNYCBottom,A2) 
470 ENDPROC 

480 : 

490 DEFFNX(R,A)}=(R-Centre )xSINCRADCA) 3 +640 
500 : 

510 DEFFNYC(R,A)=(R-Centre)xCOS(CRADCA))+Centre 
§20 : 


FOR SALE =. 
BBC Model B 


equipped with: 

Torch pack including twin double sided disc drives 

CPM software to support business software 
PerfectWriter 
PerfectCalc 
PerfectSpell 

Watford 32K Sideways RAM board 

PrintMaster ROM 

Interword ROM 

AMX Mouse 


2 Joysticks 
High Resolution colour monitor 


Some ten discs containing a wide range of «games: many 
never played. 


Offers invited: 


Contact: Alistair W. Tel (058) 84407 
Paraparaumu 


er a a a 5 ca 


28 BEEBE T May 8£8 


LETTER TO THE EDITOR 


I would like to make friendly comment, if I may, on one or 
two points raised in the Waikato User Group’s report 
(Beeblet, April 1988, p.4). I would have enjoyed joining 
in their discussions. 


It was stated in the report that the programs published in 
Beeblet “..are quite long” and the question was asked, 
",.does anyone type them in?” 


Yes, I have used some of the Beeblet programs, though 
certainly not all. I think the longest I have typed in 
from Beeblet was Robert Ngan’s “View Printer Driver” (May 
1984) of some 250 lines (Cwithout the REM’s), and the 
shortest John Andrew’s Split Screen Editor (from Micro 
User) “SPLTSCN" (Beeblet, Aug 1987). 16 lines, including 
6 of instructions. A little beauty! Knowing you, Grahan, 
I gave your one-liner (April 88, p 12) a good hard look, 
and saved myself the trouble! 


I have recently finished typing in a suite of five 
programs from Acorn User (the J.0.E.series) of which one 
was almost 700 lines. Now to me, that’s long! And the 
debugging was something else! (Took me a month of Sundays 
to notice the difference between 1 and 1 -and@ don’t tell 
me there isn’t any!). 


So, how long is long? And conversely, how short is short? 
Does it matter? Not, in my opinion, if the subject matter 
is of interest, so hopefully a good mix throughout’ the 
range from SPLTSCN to Beebug FILER....€and J.0.E.?) will 
arrive at your desk, resulting in a well rounded, full 
bodied magazine. 


As for making the programs available on disc; froma 
learners point of view I think it would very much reduce 
the opportunity to learn the finer points of BBC BASIC. 
And how are we to get our debugging practice? Is the 
editor to be required to insert a few bugs here and there, 
with the correct lines entered backwards Cupside down?) on 
the last track? Perhaps a ’short’ program could be 
arranged to spray in a few bugs at random, then the Editor 
could get some practice too! 


Frank Hazlewood, 
Auckland. 
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rd 
For use on the SoftKeys 


By F J Andrew, Wellington 


The * commands Cincluding *KEY) are sent direct to the 
operating system and do not pass through the Tokenising 
table. As a result, generous use of BASIC routines in the 
softkeys can quickly use up the little memory normally 
assigned. BASIC operators and control codes can, however 
be inserted by combinations of ASCII characters from the 
tables below. 


TABLE 1: CONTROL CODES 


KEYS ASCII STRING KEYS ASCII STRING 
CODE CODE 

Dec Hex Dec Hex 
TAB 3 9 | RETURN 13 D H 
ESCAPE 27 1B ul DELETE 127 7F 1? 
fO 160 AO i! (Space) 
f 1 161 Al tft £2 162 A2 if" 
£3 163 A3 :# £4 164 A4 its 
f5 165 A5 11% £6 166 A6 i f& 
£7 167 A7 if? £8 168 A8 if 
£9 169 Ag i!) 
Lo 172 AC ae R-c 173 AD He ane 
D-c 174 AE rE U-c 175 AF it/ 
CTE. ee 156 9c it o\ CTL R-c 157 9D 7 ae 
CTL D-c 158 9E a CTL U-c 159 oF fate zs 
SHF L-c 140 8c if ob SHF R-c 141 8D if! oM 
SHF D-c 142 8E i! oN SHF U-c 143 8F if O 
CTL A 1 1 tA CTL B 2 2 1B 
CTL. -¢ 3 S C CTL D 4 4 :D 
CTL E 5 5 EB CTL F 6 6 iF 
CTL etc 
CTL Y 25 19 iY CTL. Z 26 1A iZ 

SHF = Hold the shift key down 

CTL = Hold the CTRL Key down 

L-c = left cursor Key 

R-c = right cursor Key 

U-c = up cursor Key 

D-c = down cursor key 
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TABLE 2: VDU 3 
(Characters prefixed with 


1) 


Keyword VDU code Char Keyword VDU code 
Dec He x Dec Hex 
CLS 12 e iG CLG 16 10 
COLOUR LZ 11 +Q GCOL 24 18 
MODE 22 16 iV PLOT 25 9 
TABLE 3: BASIC KEYWORDS 
CAlphabetic list) 
(Requiring character prefix i!) 
Keyword Token Char Keyword ToKen 
Hex Hex 
AUTO C6 iftF BPUT DS 
CALL D6 ut CHAIN D7 
CHRS$ BD ifs CLEAR D8 
CLG DA i!Z CLOSE DS 
CLS DB iff COLOUR FB 
DATA DC ti DEF DD 
DELETE C7 i!G DIM DE 
DRAW. DF om END EO 
ENDPROC El ifa ENVELOPE EZ 
EOF oo ifE 
EVAL Ao '! (Space) 
EXP Al iff EXT A2 
FALSE A3 i!# FN A4 
FOR E3 ifc GCOL E6 
GET A5 1% GETS BE 
GOSUB E4 itd GOTO E5 
HIMEM D3 71S. IF E7 
INKEY A6 it& INKEYS BF 
INPUT E8 ith INSTR(¢ A7 
INT A8 a LEFTS ¢ co 
LEN AS i!) LET E9 
LIST . c9 tft LISTO C9,4F 
LN AA tx LOAD cs 
LOCAL EA itj LOG AB 
LOMEM D2 i!R MIDS¢ Ci 
MODE EB ifk MOVE EC 
NEW CA iftJ NEXT ED 
NOT AC ey OLD CB 
ON EE tin OPENOUT AE 
OPENIN AD i!- ¢€BASIC I) 
OPENUP AD i!- CBASIC II) 
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Keyword 


PAGE 
PLOT 
PQS 
PROC 
RAD 

REM 
REPEAT 
RESTORE 
RIGHTS ¢ 
RUN 

SGN 
SOUND 
STOP 
STRINGS ¢ 
TIME 
TOP 
UNTIL 
VAL 
VPOS 


This list can 


Token 
(Hex) 


Key- 

word 

ABS 94 
ADVAL 96 
ASC 97 
ATN 39 
cos 9B 
DEG 9D 
ELSE 8B 
ERL 9E 
ERROR 85 
LINE 86 
MOD 83 
OPENIN 8E 
32 


CContinu 


: 


B 


(Alphabetic list) 


EYWORD 


(Requiring character prefix i!) 
Token Char Keyword Token 
Hex Hex 
DO i {P PI AF 
FO itp POINTC BO 
Bl cf PRINT Fi 
F2 ct? PTR CF 
B2 i {2 READ F3 
F4 tft RENUMBER CC 
F5 ifu REPORT F6 
F7 tlw RETURN F8 
C2 1 !B RND B3 
F9 ify SAVE CD 
B4 i!4 SIN BS 
D4 t!T SQR B6 
FA 1!Z STR$ eo 
C4 i !D TAN B7 
Di i! TO B8 
B8,50 1 !8P TRUE B9 
FD i!) USR BA 
BB if3 VDU EF 
BC Ha WIDTH FE 
TABLE 4 BASIC KEYWORDS 
(Alphabetic list) 
(Requiring Character prefix iti} 
be inserted using the soft keys 
Char Soft Ke y- Token Char 
Key word CHex) 
ifaT CTL £4 ACS 95 Hi a 6) 
ifav CTL £6 AND 80 i!:@ 
tfiW Clie £7 ASN 98 ifex 
ee 4 CTL f9 BGET 9A rtiZ 
eae | COUNT 9C rhaN 
tad DIV 81 tfsA 
ifeK EOR 82 ifiB 
vba? ERR SF :fto 
t!iE SHF £5 HIMEM 33 if!is 
Hae SHF £6 LOMEM 52 -iak 
oe Gs SHF f3 OFF 87 iftiG 
ttiN (BASIC IT) 
BEE BLT 


Sof 
Key 


CTL 


SHF 
CTL 


SHF 
SHF 
CTL 


SHF 


t 


£5 
£0 
£8 


fi 


£2 


£3 


£7 
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iE 4 (Continued): BASIC KEYWOR 
CAlphabetic List) 


(Requiring Character prefix :!1) 

Key- Token Char Soft Key- Token Char Soft 
word (Hex) Key word CHe x) Key 
OPT (not available) OR 84 :f£2D SHF f4 
PAGE 90 :!iP CTL £0 PTR 8F :!:0 

SPC 89 ee SHF £9 STEP 88 cftH SHF £8 
TABC 8A tht THEN 8C ifaL 

TIME a1 ifigq CTL f1 TRACE FG ota 


Note : Use of the SHF and CTL with the soft keys 
will only work on OS 0.1 or later. 
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SPLIT SCREEN FDITING 
by F J Andrew, Wellington 


For those that do not have printers, the following program 
allows the left hand side of a screen to have a display 
held indefinitely, eg., a catalog. The right hand side 
can be used to load and list through other programs, etc. 


Key in the program, save it and run it. 


Press Key £0 and f1 before loading up the display to be 
held (e.g. xCAT), press Key f2 and then carry out the 
other activity e.g. load and list of programs. 


Pressing Key f3 opens up the whole screen. 


LOREM SPLIT SCREEN FOR PROG EDIT 
Z2OREM SAVE “SPLTSCN" 

3OREM M U 11/85 P 175 
40xKEYOMODE3:M- 

SOXKEYLt\ @17:@ib 
GOxXKEY2Z:\C XO: @:L 
TOXKEY3i\:@:X0:@ 

8OEND | 
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AL OU FR U Ews 


LINGTON USER GROUP 


WEELING ft oes oo 


The Wellington User Group met for its monthly meeting on 
the 20th of April to hear a talk about MODEMs. It mostly 
centred around STARNET using Pace Commstar on a BBC Master 
and was ably demonstrated by John Andrew, although a _ few 
problems were had with the configuration of the Master. 


Neil Gordon then demonstrated a 1200 baud full duplex 
modem (about the size of a pack of cards) which he used to 
access the Meteorological Office and obtained some 
impressive weathermaps of New Zealand. 


FORWARD PROGRAMME: 
The program for the next couple of months is as follows: 


15 June: The ARCHIMEDES will be demonstrated by Neville 
Hudson with focus going on the new software 
that is coming out all the time for this 
marvellous machine. 


13 July: Demonstration of a number of word-processors, 
including INTERWORD, VIEW and others. This 
will be followed in corners in which each 
word-processor will be demonstrated fully. 


10 August: Peter Revell from Barsons will present 
Education software on the Beeb. 


WORKSHOPS: 
Please note the change of venue, date and time!!! They 
are now held on the fourth Tuesday of the month in 


Penthouse 601 in Wellington College at 7.15pm. To get 
there go into the foyer of the main building, take the 
lift to the fifth floor, walk down the corridor, up the 
stairs. and into Penthouse GOl. There are only six 


computers so it is suggested that you bring your own, or 
at least your own drives. 


a Oe ee 
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DATABASE 
SERVICES 


COMMSTAR 2 Videotex/ASCII communications 
software for all models of BBC $ 99.00 


TELEPHONE JacKpoints, dual adapters, 
ACCESSORIES extension leads, US to BT conversion 


cables from $ 9.50 
MODEMS MD312 

Manual dial, multispeed 300/300 

1200/75 - Telecom approved $ 375.00 


DISCOVERY 1200C 
Autodial multispeed 300/300, 


1200/1200 - Telecom approved $ 759.00 
Contact: 
DATABASE 
SERVICES 
PO BOX 94, AUCKLAND. 11 ANZAC AVE., AUCKLAND 
STARNET: 9:DRVOO1 Telephone: (09) 799658 
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Form Sake = 
NOVEX Hi resolution anmber monitor $150 ONO 
Contact: Neil Gordon -. phone (€04) 33 8450 


FORK IORI OK RII IOI III III IORI OR III AK RK OK 


MEMBERSH LE 


Membership of the National User Group is on payment of an 
annual subscription from April to March, which is $20.00 
for the 1988/9 year. A local branch levy may be payable 
which entitles attendance at meetings as detailed on the 
back page. Joining or renewing members get all the back 
issues of Beeblet for the current year - those joining 
after 1 October may have half the annual subscription 
waived and only receive Beeblet from 1 October. 
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USER GROUP MEET ZINGS 
: -2nd and 3rd Wednesday of each month at Social 
en Club, Auckland Hospital, Grafton Road at 7.30pm. 
Contact John Buchanan (Secy), phone 546-985; David 
Wilkin (Pres), phone 437-540. 
North Shore: -last Wednesday of the month, 7.30pm, Salvation 
Army Hall, Glenfield Road, Glenfield. 
Contact: Chris, Phone 419-0543 (wk). 


CHRISTCHURCH: -~fortnightly workshops, Monday 6.30pm at Hagley 
High School. phone Michael 582-267. 

DUNEDIN: -first Thursday of the month. 
Contact: Martin McDowall, Phone 42-031 

HAWKES BAY: -2nd Sunday 2.30pm, Taradale Primary School. 


Contact Ron: 444-970, John: 445-729 (librarian), 
Major: 447-729, Mitch: 85-395. 


INVERCARGILL: -Southland Education Centre, 70 Doon St. Contact 
Bob Evans, 73-050 or Lyndon McEntee (020) 87-365. 
NELSON: —second Monday of the month, 7.30pm, Nelson Baptist 


Church, Bridge St. Contact: Peter, Richmond 8975; 
Ken, Nelson 85-150; Richard, Richmond 8489. 
PALMERSTON NORTH:~-Phone Brian Knowles 79-319. 
ROTORUA: -first Tuesday of month, Science Lab at Rotorua 
Girls High School. Phone: Ian 85-583, Joan 81-536 
Tony 89-316. 


TAUPO: -every second Wednesday, 7.00pm. 
Contact: David 84-215 (h), 85-124 wk). 
TAURANGA: ~every second Wednesday. ph. Chris & Jane 65-076. 
TIMARU: -Phaone Lloyd van der Krogt Timaru 61-412. 
TOKOROA: ist Friday of month, 7.30pm, Tokoroa High School. 


Contacts: Don Fraser, 68-813 or Graeme Robertson, 
65-S46 Tokoroa. 


WAIKATO: ~first Monday of the month, 7.30pm, Waikato Tech 

Institute. Ph. Alison or John, Morrinsville 6695. 

WELLINGTON: “usually second Wednesday, 7.30pm, Royal Society 
Lecture Theatre, Turnbull St, Thorndon. 

-Workshops: fourth Tuesday of month, other 


details: ph. Don 848-235 or Mike 785-437. 
OTHER CENTRES: ~let us know and we will publish details here. 


BEEBLET 
PUBLISHED: monthly except January and mailed to financial members. 
CONTRIBUTIONS: “most welcome. Listings should be sent in on tape 
or disc. (Tape ~ 2 copies, one at 300 baud please). Please 


include written explanation of listing; text and graphics only 
material welcome too. 


DEADLINES: -For a particular issue, the last day for material 
is the fifteenth day of the month prior to publication. 
ADVERTISING: “No fixed charge is made for advertising, Supply 
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